home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / notes_detection.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  68 lines
  1. #
  2. #
  3. # This script is (C) 2003 Renaud Deraison
  4. #
  5. #
  6. # This plugin positively identifies notes-to-notes communication (on top
  7. # of port 1352)
  8.  
  9. if (description)
  10. {
  11.  script_id(11410);
  12.  script_version ("$Revision: 1.1 $");
  13.  script_name(english:"Notes detection");
  14.  desc["english"] = "
  15. A Lotus Domino server is listening on this port
  16.  
  17. Risk factor : Low";
  18.  
  19.  script_description(english:desc["english"]);
  20.  script_summary(english:"Determine if a remote host is Domino");
  21.  script_category(ACT_GATHER_INFO);
  22.  script_family(english:"General");
  23.  script_copyright(english:"This script is Copyright (C) 2003 Renaud Deraison");
  24.  script_require_ports(1352);
  25.  exit(0);
  26. }
  27.  
  28. include("misc_func.inc");
  29.  
  30. port = 1352;
  31.  
  32. if(get_port_state(port))
  33. {
  34.  soc = open_sock_tcp(port);
  35.  if(!soc)exit(0);
  36.  
  37.  req = raw_string(0x3A, 0x00,
  38.            0x00, 0x00, 0x2F, 0x00, 0x00, 0x00, 0x02, 0x00,
  39.           0x00, 0x40, 0x02, 0x0F, 0x00, 0x01, 0x00, 0x3D,
  40.           0x25, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  41.           0x00, 0x00, 0x00, 0x00, 0x00, 0x2F, 0x00, 0x00,
  42.           0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40,
  43.           0x1F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  44.           0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  45.           0x00, 0x00);
  46.           
  47.  send(socket:soc, data:req);
  48.  r = recv(socket:soc, length:2);
  49.  if(!r)exit(0);
  50.  
  51.  len = ord(r[0]) + ord(r[1])*256;
  52.  r = recv(socket:soc, length:len);
  53.  close(soc);
  54.  if("CN=" >< r)
  55.  {
  56.   r = strstr(r, "CN=");
  57.   for(i=0;i<strlen(r);i++)
  58.   {
  59.    if(ord(r[i]) < 10)break;
  60.    else name += r[i];
  61.   }
  62.   
  63.   report = "A domino server (" + name + ") is listening on this port";
  64.   security_note(port:port, data:report);
  65.   register_service(port:port, proto:"notes");
  66.  }
  67. }
  68.